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EDTSSCRCURS = conditionally position the cursor 1o-300°12 4 93:31:98 VAX-11 Bliss-32 Fed Page 1 

14-Sep-1984 12:24: DISKSVMSMASTER:CEDT.SRCJSCRCURS.BLI;1 (1) 

ZTITLE “EDTSSCRCURS = conditionally position the cursor’ 

MCDULE EDTSSCRCURS ( ! Conditionally position the cursor 

poEnt = *'v04-000' ! File: SCRCURS.BLI Edit: JB8S1012 
= 
BEGIN 


i eeeeeeeereeeeeeeeeeereeeeeeeeeeeteeeeeeeeeeeeeeereeeeneeeeneeeeeteeeeeeeeere 
'@ 

‘e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


:# INC OTIC OF Tw 
'# COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i; hy Pg 8 4 NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SORPORAT bn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

'e SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
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1e¢ 
FACILITY: EDT -=- The DEC Standard Editor 


ABSTRACT: 


This module puts out a cursor position sequence to a specified 
Line and column, unless the cursor is already there. 


Rca out HUN ORORONOPOROFORORONG oe ee ae ee 


PAWN OC OONAUE WN ( O OONOUE WIN S(O OONOUES W000 


SSSSssssssssssssssssss 


ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
MODIFIED BY: 


1-001 - Original. DJS 12-Feb-1981. This module was created b 
oxtroct ing the routine EDTSSSC_POSCSIF from module SCREEN. 
1-002 - Regularize headers and don't store into the pgraneter List. This 
change saved two words on the PDP-11. JBS 15-Mar-1981 
1-003 - Always pos tig0 to the last column, to avoid autowrap problems. 
- re 


1-004 = Remove edit 1-003, since it doesn't help a VT100, and add some 

cursor positioning optimizations. For now, turn off the cursor 

positioning optim zations. until EDT passes the QA system. JBS 05-Oct-1982 
1-005 = Turn the cursor positionin ont setsed tans on, to see if EDT still 

pesses the QA system. JBS 15- tf 8 
1-006 - When positioning below the scroll ng region don't use the 

relative cursor motion commands. JBS 15-Oct-1982 
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>) es > ds 4 9 2 


3 


- Fix a bug inv ving S. JBS Ll ea 
- > d Doternin l drivers, always use absolute cursor positioning. 


C 

- Preserve EDTSSG_FMT_LNPOS. JBS 28-Oct-1982 

- Changed test for being outside gcrott og region. JBS for SB 17-Jan-1983 

- Add more error check tng. JBS 17-Jan-1983 

- If we are coming from the right margin, always do an absolute cursor 
positioning sequence, since the right margin may not be where we think 
it is, and the cursor may be misplaced. JBS 08-Apr-1983 
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R TSSCR - diti Ll sition the cursor 16-Sep-1984 01:31:04 VAX=-11 Bliss-32 V 3 EDT 

7 Nh 3 Nea ot pe et Stat wat Ta z 13-808=1 984 3}: 3 DISKSVMSMASTER: chor Ose SCRCURS.BLI;1 yage (2) v04 
3 4 6 } SSBTTL ‘Declarations’ 
: re 71 1! TABLE OF CONTENTS: 
££ fs 1! 
; - 731 
: OR 3 j 
; 6 14 1 FORWARD ROUTINE 
: 78 15 1 EDTSS$SC_POSCSIF : NOVALUE; 
fa ai$ | 
> 81 18 1 | INCLUDE FILES: 
; 8 239 i ' 
: 8 $21 REQUIRE ‘EDTSRC:EDTREQ'; 
: 86 be89 1! 
: 87 58 1 | MACROS: 
; | «88 59 1: 
; 89 0 NONE 
: 91 1 | EQUATED SYMBOLS: 

3 bees 1 i 
: 9 1 NONE 
: 94 a9 
; 95 i OWN STORAGE: 
; 44 0668 NONE 
: 99 $4 1 | EXTERNAL REFERENCES: 
> 100 4 1: 
; 101 ve 3 f In the routine 
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SC POSCSIF = Conditional ly position thee leetepe1one Gessured || DaeesunGAAStenccEot sacSscrcurs.eut:1° (3 


ZSBTITL “EDTSSSC_POSCSIF - conditionally position the cursor’ 


GLOBAL ROUTINE EDTSSSC_POSCSIF ( ! Conditionally position the cursor 
LINE, ! Desired Line 


ap 


~sS 


os 


! Desired column 


T 
T 
7 
7 
? 
7 
7 POS 

f ) : NOVALUE = 


VFA —OOONISOUFSW Ow 


Previous Line number 


$G~PRV~COL, Previous column number 


H 1 

3 1 

s 105 1 

8 : | 
$ 198 1 | 
; 109 1 

: 110 1 !e¢ 

3 11 : FUNCTIONAL DESCRIPTION: 

: 118 1! This routine positions the cursor to CLINE, POS]. No output is 

; 118 ! produced if the cursor is already positioned correctly. 

; 118 6 1 ! FORMAL PARAMETERS: 

3; 11 6 1! 

3; «118 3 1! LINE Desired Line 

3; «119 1! 

; 120 1! POS Desired column 

153 $32 | i IMPLICIT INPUTS 

. 2 §e98 1! 

: 126 0694 1! EDTS$$G_PRV_LN 

; 125 0695 1! EDT$$G_PRV_COL 

; 126 06 1! EDT$$G_BOT_SCREG 

» Ser 97 1! EDTS$G_TI_ 

; 128 698 1! EDTS$G_TI_WID 

3; 129 06 ee 

; 150 0700 1 ! IMPLICIT OUTPUTS: 

3 131 0701 1! 

os $ 44 1! NONE 

.. 9 0705 1! 

s 1 0704 1 ! ROUTINE VALUE: 

s 135 0705 1! 

oe 3708 1! NONE 

3 3 0707 1! 

; 138 0708 1 ! SIDE EFFECTS: 

3; 139 0709 1! 

: 140 0710 1! May position the cursor. 

3: «6141 0711 1! 

3 1*¢ re 1 le 

3 14 71 1 

3 1446 714 BEGIN 

: «6145 15 

: 146 16 EXTERNAL ROUTINE 

; (14 1 EDT POSABS : NOVALUE. ! Force a cursor position sequence to the output buffer 
: 148 1 EDTSSSTORE_FMTCH : NOVALISé, ' Store a character in the format buffer | 
: 189 1 EDTSSFMT_DCML : NOVALUE; ' Place a decimal number in the format buffer | 
3 183 osieat 
3 136 $G_BOT_SCREG, Bottom of gurrent scrolling region 
: 134 
18 | 
Py j 
g 
3 189 


SSNS NNN 


SOooooooooooa 
Rononononononononony 


WONOULS WO 0O@ 


$G_P 

$ e 

$$G_TI_TYP Terminal type, either VT52 or vT100 
$$6_TI DUMB 1 = this is ? dumb terminal driver 
$$G_FMT LNPOS, fursor posit on, for formatting purposes. 
$$G_TI_QID; ! Terminal width 
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3 


13 

CURS = conditionally position the curs 18-5 1984 01:31: VAX=11 Bliss-32_V4.0-7 

; ($1 Znalt i sae) ot cath i GS Se ot RES e 33 
L 


OCAL 


‘+ 
! Preserve EDTSSG_FMT_LNPOS, since the calls to EDTSSFMT_DCML will increment it, 
but those characters do not in fact move the cursor, since they are in a control sequence. 


FEE ANANAAASAA AA 
WR COBNAUNEWN—O we 


i ed 


E 
E 
SAVE_FMTLNPOS; 
- ASSERT (.LINE GEQ 0); 
If we are already positioned correctly, do nothing. 
IF ((.LINE EQL .EDTSSG_PRV_LN) AND (.POS EQL .EDTS$G_PRV_COL)) THEN RETURN; 
te SAVE_FMTLNPOS = .EDTSSG_FMT_LNPOS; 
rs i If this is a dumb terminal driver, we are positioning below the scrolling 
74 ! region, or soning from the right margin, issue an absolute cursor position. 
oe A dumb terminal driver is one which does not permit its autowrap logic to be disabled. | 
0750 2 | 
O75. 5 tte + 1) GEQ .EDT$$G_BOT_SCREG) OR (.EDTSS$G_PRV_COL EQL (.EDTSS$G_TI_WID - 1)) OR .EDT$$G_T1_DUMB | 
Fag BEGIN 
0754 EDTSSSC_POSABS (.LINE, .POS); 
0755 EDTSSG_FMT_LNPOS = .SAVE_FMTLNPOS; | 
oF 38 RETURN; 
i 7 
$736 '¢ 
th i If the desired column is zero, but the current column is non-zero, issue a 
761 ! carriage return provided that the rows match, so that we will not be issuing 
154 ! an absolute cursor position Later. 
0764 2 
0765 IF ((,POS EQL 0) AND (.EDTS$G_PRV_COL NEQ 0) AND ‘ 
0766 ((.LINE EQL .EDTS$G_PRV_LA) OR (.LINE EQL (.EDTS$G_PRV_LN + 1)))) 
076 THEN 
0768 BEGIN 
078? EDTSSSTORE_FMTCH (ASC_K_CR); 
4 0 EDTS$G_PRV_COL = 0; 
ag END; 
hg '¢ 
774 ' If the column is correct but the row is incorrect, issue an appropriate 
775 ' sequence. 
re 
as | IF ((.POS EQL .EDT$$G_PRV_COL) AND (.LINE NEQ .EDTS$$G_PRV_LN)) 
77 THEN 
7 BEGIN 
781 '¢ 
A ¢ : If we are moving down one, issue a line feed. 
: 
785 4 IF (.LINE EQL (.EDTSS$G_PRV_LN + 1)) 
786 3 THEN | 
| 
| 


ce NEQ .EDTS$$G_PRV_COL) AND (.LINE EQL .EDTS$G_PRV_LN)) 
- BEGIN 
If we are just going back one, use BS. 


IF (.POS EQL (.EDTS$G_PRV_COL - 1)) 
THEN 


BEGIN 
EDTSSSTORE_FMTCH (ASC_K BS); 
gor DT$$G_PRV-COL = .EDTSSG _PRV_COL = 1; 
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RCURS EDTSSCRCURS = conditionally position the cursor 16-Sep-1984 01:31:04 VAX-11 8B its s-32 v4. 
dette EDTSESc POSCSIE - eealelans ally position the c 12: ~bep- 1382 04:34:98 DISK KSVMGMA STER: chor? she SCRCURS.BLI; y 
: 217 787 4 439 b 
3 1 7 3 4 EDTSSSTORE_FMTCH tase K_LF); 
3 2 789 4 EDTSSG_PRV-LN = .EDTSSG_PRV_LN + 1; 
3 0 790 4 END 
: 1 ie - ELSE 
: 5 79 i Otherwise issue an appropriate relative cursor motion command. Note that the vT52 
; 4 794 i can only move by one. 
3 5 795 ie 
3 $ 799 $ ft {EO TOSS 111? EQL TERM_VT100) OR (ABS (.LINE = .EDTS$S$G_PRV_LN) EQL 1)) 
; § 738 4 BEGIN 
: : 464 2 EDTSSSTORE_FMTCH (ASC_K_ESC); 
3 § 4 : IF (.EDTS$SG_TI_TYP EQL TERM_VT100) THEN EDTSSSTORE_FMTCH (2C'C'); 
; 0804 5 IF (.LINE LSS .€D1T$$G_PRV_LN) 
3 5 0805 4 THEN hen 
; 37 Sane 5 BEGIN 
3 38 0808 3 IF ((.EDTS$G_PRV_LN = .LINE) NEQ 1) THEN EDTSSFMT_DCML (.EDTS$$G_PRV_LN - .LINE); 
: 240 0810 EDTSSSTORE_FMTCH (XC'A'); 
: 241 0811 EDTSSG_PRV_LN = .LIN 
$ eg Bai§ : EDTSSG_ PRY “COL = POS: 
: 26 081 END 
3: 266 0814 4 ELSE 
: 245 0815 5 BEGIN 
> 246 0816 5 EDTSSFMT_DCML (.LINE - sEDTS$G_PRV_LN); 
: 47 0817 5 ED TSSSTORE -FMTCH (ZC°B"); 
: 248 0818 5 EDT$$G_PRV_LN = .LINE; 
3 0819 5 EDTS$G_ PRY EOL = POS; 
5 0820 4 END; 
: OBS? 3 END 
; 08 : : 7 
: 824 END; 
3 825 
$ 8 $ '¢ 
; 08 i Now check for moving left or right. Note again that the VT52 can only 
; 0828 i move by one. 
3 08 , i. 
: a 
i 
; : 
; 8 ry 
g 3 
3 0 4 
3 1 4 
é § 4 
FH 4 
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$04 +000 EDTSesc Poscsie = condit Jnbily position the c 12280871382 95:34:93 DISK KSVMSMASTER: tt EDT OSRCISCREURS. BLI;1 ste (3) | 

; 4 3 ELSE | 
; f 46 4 UF (C.EDTS$6_T1_TYP EQL TERM_VT100) OR (ABS (.POS = .EDTS$G_PRV_COL) EQL 1)) | ; 
3 @f g 4 BEGIN | ; 
3 er 49 & ‘4 | : 
; Bi 29 ? Otherwise, use a relative cursor motion command. | : 
i 98¢ B3¢ 4 EDTSSSTORE_FMTCH (ASC_K_ESC); | 
: ¢4 834 2 IF (.EDTSSG_TI_TYP EQL TERM_VT100) THEN EDTSSSTORE_FMTCH (2C'C'); ‘ 
; 86 D836 5 IF (.POS LSS .EDT$$G_PRV_COL) ; 
; 287 0857 4 THEN 3 
; 288 O88 2 BEGIN : 
H 89 085 EDTSSFMT_DCML (.EDTS$G Beh RV COL - .POS); : 
; 290 0860 EDTSSSTORE_FMTCH (%C'D $ 
: 991 0861 EDTS$G_PRV_COL = "POS: ; 
: $98 OBes ELSE : 
: Be Seed 2 BEGIN : 
; 96 0866 5 IF ((.POS = .EDTS$G_PRV_COL) NEQ 1) THEN EDTSSFMT_DCML (.POS - .EDT$$G_PRV_COL); : 
: 298 bee 3 EDTSSSTORE_FMTCH (XC'C'); : 
; 299 0869 5 EDT$$G_PRV-COL = .POS; : 
; 300 0870 4 END; 3 
3; Ol 0871 4 : 
3 B 087 ; END; : 
; 30 087 : 
Soe: mo : 
; 306 876 2 !+ ; 
; 307 877 i If the above logic does not succeed in getting the cursor positioned correctly, . 
3 oS +44 |. it using an absolute cursor position sequence. : 
: 310 0880 ; 
; 4 0881 IF ((.LINE NEQ .EDT$$SG_PRV_LN) OR (.POS NEQ .EDT$$G_PRV_COL)) : 
; 13 O88 EDTSS$SC_POSABS (.LINE, .POS); ; 
: 314 0884 3 
3 319 0885 + : 
3 1¢ OBB? 3 | _Restore the format Line position. : 
; 318 58 EDT$$G_FMT_LNPOS = .SAVE_FMTLNPOS; : 
A 19 0889 RETURN; : 
3 Seo 0890 1 END; ! of routine EDTS$$SC_POSCSIF : 


-TITLE EDTSSCRCURS EDTSSCRCURS - conditionally positio 
the cursor 
-IDENT \V04-000\ 


~-EXTRN EDTSSSC_POSABS, EDTSSSTORE FMTCH 
-EXTRN EDTSSFMT_DCML, EDT$$G_BOT_SCREG 
-EXTRN EDTSSG_PRV_LN, EDTS$$G_PRV"COL 
-EXTRN EDTSS$G_TI_TYP, EDTS$$G_T1_6uMB 
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D1 SkSVMSM STER: cED 1 SRCISCRCURS. BLI;1 (3) 


-EXTRN EDTSS$G_FMT_LNPOS 
-EXTRN EDTSS$G_TI_QID, EDTSSINTER_ERR 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


OFFC 00000 ENTRY EDTSS C POSCSIF, Save R2,R3,R4,R5,R6,R7,RB,-; 0675 : 
58 0 9006 9E 0000 MOVAB EDT SSFAT DcML, R11 : : 
A G 9E 000 MOVAB €EDT$$G_TI_T : ; 
9 906 3E 00010 MOVAB EDTSSSTORE_ VeMtCH. RO : : 
§ 0000006 9E 0001 MOVAB EDT$$G_PRV“LN, R8 : : 
000 00906 09 OO1§ MOVAB EDTS$$G-PRV“COL, R7 : : 
4 6 AC OD MOVL LINE, 4 RG : 0733 : 
07 18 00029 BGEG $ : : 
000000006 00 90 FB 000 CALLS #0, EDT$SINTER_ERR : : 
4 01 00032 18 CMPL 4, EDT$$G_PRV-LN + 0738 : 
07 1 00 BNEG 2$ : : 
67 08 AC D1 000 CMPL POS, EDT$$G_PRV_COL 3 : 
01 12 000 BNEG 2 : : 
04 00030 RET | ; : 
56 000000006 00 D0 000 E 2$ MOVL § EDTS$$G_FMT_LNPOS, SAVE_FMTLNPOS + 0744 : 
55 01 AG i: 004 MOVAB 1(R4),~R5 > 0751 : 
000000006 00 55 01 00049 CMPL RS, EDT$$G_BOT_SCREG : : 
14 18 00050 BGEG © 3$ : : 
50 000000006 00 01 ¢3 00052 SUBL3 #1, EDT$$G_TI_WID F : 
50 67 D1 OO05A CHL ED DTS$G_PRV-COL, RO ; : 
07 13 0005D BEQL $ : : 
06 000000006 00 €E9 0005F BLBC = EDT$$G_TI_DUMB, 4$ : : 
AC go 00066 3$: PUSHL POS 3; 0754 ‘ 
010F 31 00069 BRW 24$ : : 
53 08 Ac dO 9006¢ 4$: MOVL POS, R3 > 0765 : 
1A 1 900 0 BNEQ : : 
67 D5 00072 TSTL  EDT$$G_PRV_COL : ‘ 
16 13 00074 BEQL : : 
50 68 D0 00076 MOVL § EDTS$$G_PRV_LN, RO > 0766 : 
50 54 D1 00079 CMPL = R4,-RO : : 
07 13 9907¢ BEQL : : 
50 06 0007 INCL = RO : : 
50 54 01 000 CMPL sR, RO : : 
07 12 0008 BNEG  6$ F : 
Op DD 00085 5S: PUSHL #13 > 0769 
69 1 FB 88 7 CALLS sic Pav cor” FATCH : 
67 D4 A CLAL eof : 0770 
67 53 01 0 C 68: CMPL *iorsse7 PRV_COL : 0778 
6¢ if F BNEG : 
68 4 01 00091 CPPL = RG, _EDT$$G_PRV_LN : 
67 13 0094 BEQL : 
5 3.) p 096 MOVL EDTS$S$G_PRV_LN, R2 : 0785 
2 01 a2 F MOVAB 1(R2), RO ; 
p 90 CMPL = R4, - RO ; 
9 12 A BNEQ 4 3 
A DD OOOA PUSHL : 0788 
69 . F A4 CALLS SG PRY CN FATCH : 
68 p A7 INCL Hee : 0789 
a9 BRB > 0785 
02 A D1 O00AB 7S: CMPL EDTSSG_TI_TYP, #2 : 0797 
E 13 OOOAE BEQL $ ; 
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Festi one onc 
ie. _PRV_LN, RO 


R 
: R5 


DD DM we 3-3 
nears 


R4, R 
#1 eOtsstar. _DCML 
it -(SP) 
-(SP) 
* eOtsseat _DCML 
4 =(SP) 
#1, EDTS$STORE -FMTCH 
Rs > EDT$$G_PRV~ 
EDT$$G_PRV- COL 
a PRV=COL> R5 
22$ 
Rs EDT$$G_PRV_LN 
-1(R5), RO 
R3, RO 
15$ 
48 
EDTSSSTORE _FMTCH 
Episse v_CcO 
EDTS$G_TI_TYP, #2 


z2— rum ae 
UNO Nn 


at _FMTCH 
_TYP, #2 
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BRB 1$ 
coe a5) RO 0866 


R4 
CALLS #2, EDTS$$SC_POSABS 


00000000G 00 
5$: mOvL SAVE_FMTLNPOS, EDTS$G_FMT_LNPOS 


000000006 00 


a a a os 


SRSWS THAW mo OTM ous =_— 


OOCCOOOOCOOOOOOOOCOO eu 


14 1 3 

AS 9 : 

p CM 3, rb : 

BEQL $ : 

7E 53 § ¢ SUBL3 RS, R3, -(SP) : 

eg 1 F 6 CALLS #1, EDTSSFMT_DCML ; 
f 43 BF 9 6 08: MOVZBL #67, =(SP) + 0868 

6 1 F 69 21$: CALLS #1, EDTS$$SSTORE_FMTCH : 
67 3D 0 6 MOVL 3, EDT$$G_PRV~COL + 0861 
&R 4 0 $ 228:  CMPL R4, EDT$$G~PRVZLN + 0881 

03 12 00 BNE 238 : 

67 D1 0017 CMPL = R3, EDT$$G_PRV_COL : 

08 13 0017 BEQL 46s 25$ ; 
DD 0017 R3 + 0883 

54 DD 0017 3 

9 FB 0017 3 

6 oO 00 5 

04 00 $ 


So SLOWDOTOWNWOWd Ss OUwwm— 


; Routine Size: 396 bytes, Routine Base: _EDTSCODE + 0000 


0891 1 
0892 1 !<BLF/PAGE> 


o 
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. 
° 
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~ 
° 
. 
° 
. 
° 


EDTSSCR = conditionally position the cursor 1-86 Sep-19 1:31:04 VAX-11 Bliss-32 V4.0-74 
EDTSSSC_POSCSIF = conditis na Btly position the c 12-8 08-138e 9333498 DISKSVMSMASTER: CEDT.SRCJSCRCURS.BLI;1 yoae 
335 DBse } END ! of module EDTSSCRCURS 
6 95 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 396 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
rte SYERS(G cooceces Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CEDT.SRCJEDT.L32;1 377 6 40 00:00.2 
RHEE EDT. SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 
GESSS/ERESR OST FELD , BEET EAS. SPS SNE EE? /HOTRACERACE LL S904. Et SERINE SER SURIO1 SERCURE MSRC$:SCRCURS .BLI/UPDATE=(ENH$: SCRCURS 


Size: 396 code + 0 data bytes 
Run Time: 00:20.2 
Elapsed Time: 00:23.6 
Lines/CPU Min: $6 
eee Ne gig 929 
penery Used: 138 pages 
Compilation Complete 
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